Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/DATACH.CST/00327_Script_mappy

Text File | 1999-03-07 | 3KB | 103 lines

property Rimage,Dimage,image,sprt, pair
on getPropertyDescriptionList
  set description=[:]
  --  addProp description,#Rimage,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for rollover image"]
  --
  --  addProp description,#Dimage,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for the image when the mouse is down"]
  --
  --  addProp description,#image,[#default:"",#format:#integer, ¼
--  #comment:"The cast num for the image when not rolled over"]

  addProp description,#sprt,[#default:"",#format:#integer, ¼
  #comment:"The sprite number "]

  addProp description,#pair,[#default:"",#format:#integer, ¼
  #comment:"The city pair sprite number "]
  --  put "*:"&description
  return description
end

on get behaviorDescription
  return "changes the image on rollover"
end


on mouseEnter me
  global gsprt, gpair
  if (gsprt <> sprt) and (sprt <>  gpair)then
    turnred sprt
    if pair<>0 then
      if (pair <> gpair) and (pair <> gsprt) then
        turnred pair
      end if
    end if
    -- set the ink of sprite sprt to 0
    updatestage
  end if
end

on mouseleave
  global gSubch, gpair, gsprt
  if (gSubch <> sprt) then
    if (gsprt <> sprt) and (gpair <> sprt) then
      removered sprt
      if pair<>0 then
        if (pair <> gpair) and (pair <> gsprt) then
          removered pair
        end if
      end if
    end if
    --set the ink of sprite sprt to 1
    updatestage
  end if
end

on removered spritenumber
  set xnme = the name of member the castnum of sprite spritenumber
  if xnme contains "red" then
    set xmel = length(xnme) - 4
    set xout = char 1 to xmel of xnme
    set the member of sprite spritenumber = xout
  end if
end
on turnred spritenumber
  set xnme = the name of member the castnum of sprite spritenumber
  if xnme contains "red" then
    nothing
  else
    set xout = xnme & " red"
    set the member of sprite spritenumber = xout
  end if
end

on mouseup me
  global gSubch,gSImage,gMode, gsprt, gpair
  removered(3)
  repeat with slop = 24 to 34
    removered(slop)
  end repeat
  set the visible of sprite gsprt = true
  set the visible of sprite gpair = true
  --  set the castnum of sprite sprt to the castnum of sprite sprt -1
  --  set the castnum of sprite pair to the castnum of sprite pair -1
  set the visible of sprite sprt = false
  set the visible of sprite pair = false
  set gsprt = sprt
  set gpair = pair
  updatestage
  set gMode="menu"

  --  if gSub <> sprt and gSub <>"" then
  --    set the castnum of sprite gSub to gSImage
  --  end if

  if gSubch <> sprt then
    set gSubch = sprt
    --    set gSImage = Image
  end if
  pass
end